-- background: 3423 from stack: in
-- bmap block id: 5836
-- flags: 0000
-- background id: 0
-- name: Dialer
----- HyperTalk script -----
on opencard
  if field "Start" is empty then
    show background button "Start"
    hide background button "Stop"
  else
    hide background button "Start"
    if field "Stop" is empty then
      show background button "Stop"
    else
      hide background button "Stop"
      show background button "Home"
      show background button "New Call"
      show background button "First Card"
    end if

  end if

  set lockText of background field "Start" to true
  set lockText of background field "Stop" to true
  set lockText of background field "Date" to true
  set lockText of background field "Elapsed" to true
end opencard

on ReturnKey
  if field "Start" is empty then
    click at location of background button "Start"
  end if
end ReturnKey

on EnterKey
  if field "Start" is empty then
    click at location of background button "Start"
  end if
end EnterKey




-- part 1 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=267 top=41 right=63 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start
----- HyperTalk script -----
on mouseUp
  set lockText of background field "Date" to false
  set lockText of background field "Start" to false
  put the date into field "Date"
  put the time into field "Start"
  set lockText of background field "Start" to true
  set lockText of background field "Date" to true
  global startsecs
  put the seconds into startsecs
  hide background button "Start"
  hide background button "New Call"
  hide background button "First Card"
  show background button "Stop"
  click at the location of background field "Party"
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=85 top=75 right=96 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start


-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=85 top=51 right=71 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=85 top=100 right=121 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stop


-- part 5 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=269 top=73 right=95 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stop
----- HyperTalk script -----
on mouseUp
  set the numberFormat to "0.0"
  set locktext of background field "Stop" to false
  set locktext of background field "Elapsed" to false
  get the time
  put it into field "Stop"
  put the secs into stopsecs
  get field "Start"
  convert it to seconds
  put (the seconds - it)/3600  & " Hours" into field Elapsed
  set locktext of background field "Stop" to true
  set locktext of background field "Elapsed" to true
  hide background button "Stop"
  show background button "Home"
  show background button "New Call"
  show background button "First Card"
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=86 top=130 right=150 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elapsed


-- part 7 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=88 top=162 right=182 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Party


-- part 8 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=89 top=191 right=212 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client
----- HyperTalk script -----
on closeField
  click at location of background field "Notes"
end closefield



-- part 9 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=88 top=223 right=309 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 251
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Notes
----- HyperTalk script -----
on closeField
  click at location of background field "Party"
end closefield


-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=381 top=42 right=64 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Call
----- HyperTalk script -----
on mouseUp
  doMenu New Card
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=316 top=107 right=129 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  push card
  visual effect zoom close
  go home
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=381 top=75 right=97 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Card
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to card "Phone Log"
end mouseUp